﻿Public Class ekmathisi
    Private Sub Synexeia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Synexeia.Click
        Me.Hide()
        test.Show()
    End Sub

    Private Sub Hear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hear.Click
        Dim speech
        speech = CreateObject("SAPI.spvoice")
        speech.Speak(Kseni_leksi.Text)
    End Sub

    Private Sub ekmathisi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kseni.Text() = arxiki.Glwssa.SelectedItem

        Me.GreekTableAdapter.Fill(Me.LexikoDataSet.greek)

        If (arxiki.Glwssa.SelectedItem = "Ισπανικά") Then
            Me.SpanishTableAdapter.Fill(Me.LexikoDataSet.spanish)
            If (arxiki.Arxarios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.easy words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "spanish.easy words")
            End If
            If (arxiki.Metrios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "spanish.medium words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "spanish.difficult words")
            End If
        End If
        If (arxiki.Glwssa.SelectedItem = "Αγγλικά") Then
            Me.EnglishTableAdapter.Fill(Me.LexikoDataSet.english)
            If (arxiki.Arxarios.Checked = True) Then
                
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.easy words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "english.easy words")

            End If
            If (arxiki.Metrios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "english.medium words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "english.difficult words")
            End If
        End If
        If (arxiki.Glwssa.SelectedItem = "Ιταλικά") Then
            Me.ItalianTableAdapter.Fill(Me.LexikoDataSet.italian)
            If (arxiki.Arxarios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.easy words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "italian.easy words")

            End If
            If (arxiki.Metrios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "italian.medium words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "italian.difficult words")
            End If
        End If
        If (arxiki.Glwssa.SelectedItem = "Γαλλικά") Then
            Me.FrenchTableAdapter.Fill(Me.LexikoDataSet.french)
            If (arxiki.Arxarios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.easy words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "french.easy words")

            End If
            If (arxiki.Metrios.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "french.medium words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "french.difficult words")
            End If
        End If

    End Sub

    Private Sub Allagi_Epipedou_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Allagi_Epipedou.Click
        If (arxiki.Glwssa.SelectedItem = "Ισπανικά") Then
            If (arxiki.Arxarios.Checked = True) Then
                arxiki.Arxarios.Checked = False
                arxiki.Metrios.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "spanish.medium words")
            End If
            If (arxiki.Metrios.Checked = True) Then
                arxiki.Metrios.Checked = False
                arxiki.Proxorimenos.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "spanish.difficult words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                MsgBox("Δεν υπάρχει ανώτερο επίπεδο από αυτό, μπορείτε να προχωρήσετε στο τεστ!")
            End If
        End If
        If (arxiki.Glwssa.SelectedItem = "Αγγλικά") Then
            Me.EnglishTableAdapter.Fill(Me.LexikoDataSet.english)
            If (arxiki.Arxarios.Checked = True) Then
                arxiki.Arxarios.Checked = False
                arxiki.Metrios.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "english.medium words")

            End If
            If (arxiki.Metrios.Checked = True) Then
                arxiki.Metrios.Checked = False
                arxiki.Proxorimenos.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "english.difficult words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                MsgBox("Δεν υπάρχει ανώτερο επίπεδο από αυτό, μπορείτε να προχωρήσετε στο τεστ!")
            End If
        End If
        If (arxiki.Glwssa.SelectedItem = "Ιταλικά") Then
            Me.ItalianTableAdapter.Fill(Me.LexikoDataSet.italian)
            If (arxiki.Arxarios.Checked = True) Then
                arxiki.Arxarios.Checked = False
                arxiki.Metrios.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "italian.medium words")

            End If
            If (arxiki.Metrios.Checked = True) Then
                arxiki.Metrios.Checked = False
                arxiki.Proxorimenos.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "italian.difficult words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                MsgBox("Δεν υπάρχει ανώτερο επίπεδο από αυτό, μπορείτε να προχωρήσετε στο τεστ!")
            End If
        End If
        If (arxiki.Glwssa.SelectedItem = "Γαλλικά") Then
            Me.FrenchTableAdapter.Fill(Me.LexikoDataSet.french)
            If (arxiki.Arxarios.Checked = True) Then
                arxiki.Arxarios.Checked = False
                arxiki.Metrios.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.medium words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "french.medium words")

            End If
            If (arxiki.Metrios.Checked = True) Then
                arxiki.Metrios.Checked = False
                arxiki.Proxorimenos.Checked = True
                Elliniki_leksi.DataBindings.Add("Text", LexikoDataSet, "greek.difficult words")
                Kseni_leksi.DataBindings.Add("Text", LexikoDataSet, "french.difficult words")
            End If
            If (arxiki.Proxorimenos.Checked = True) Then
                MsgBox("Δεν υπάρχει ανώτερο επίπεδο από αυτό, μπορείτε να προχωρήσετε στο τεστ!")
            End If
        End If
    End Sub

    Private Sub Proigoumeni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proigoumeni.Click
        BindingContext(LexikoDataSet, "spanish").Position = BindingContext(LexikoDataSet, "spanish").Position - 1
        BindingContext(LexikoDataSet, "english").Position = BindingContext(LexikoDataSet, "english").Position - 1
        BindingContext(LexikoDataSet, "french").Position = BindingContext(LexikoDataSet, "french").Position - 1
        BindingContext(LexikoDataSet, "italian").Position = BindingContext(LexikoDataSet, "italain").Position - 1
    End Sub

    Private Sub Epomeni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Epomeni.Click
        BindingContext(LexikoDataSet, "spanish").Position = BindingContext(LexikoDataSet, "spanish").Position + 1
        BindingContext(LexikoDataSet, "english").Position = BindingContext(LexikoDataSet, "english").Position + 1
        BindingContext(LexikoDataSet, "french").Position = BindingContext(LexikoDataSet, "french").Position + 1
        BindingContext(LexikoDataSet, "italian").Position = BindingContext(LexikoDataSet, "italian").Position + 1
    End Sub

    Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
        BindingContext(LexikoDataSet, "spanish").AddNew()
        BindingContext(LexikoDataSet, "english").AddNew()
        BindingContext(LexikoDataSet, "french").AddNew()
        BindingContext(LexikoDataSet, "italian").AddNew()
    End Sub

    Private Sub Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Delete.Click
        BindingContext(LexikoDataSet, "spanish").RemoveAt(BindingContext(LexikoDataSet, "spanish").Position)
        BindingContext(LexikoDataSet, "english").RemoveAt(BindingContext(LexikoDataSet, "english").Position)
        BindingContext(LexikoDataSet, "french").RemoveAt(BindingContext(LexikoDataSet, "french").Position)
        BindingContext(LexikoDataSet, "italian").RemoveAt(BindingContext(LexikoDataSet, "italian").Position)
    End Sub
End Class